home *** CD-ROM | disk | FTP | other *** search
-
- (set sdir (pathonly @icon))
-
- (message
- "\n\n\n\nTen skrypt instaluje MusicBase w wersji 1.75\n01.07.99"
- )
-
- (set ID_dest (askdir
- (prompt " Gdzie mam zainstalowaê MusicBase? (katalog MusicBase zostanie utworzony)")
- (help "Wybierz katalog do zainstalowania MusicBase")
- (default @default-dest)
- )
- )
-
- (set @default-dest ID_dest)
- (makedir (tackon ID_dest "MusicBase"))
- (set ID_dest (tackon ID_dest "MusicBase"))
- (set @default-dest ID_dest)
-
- (working ("Kopiujë MusicBase"))
- (copyfiles
- (source (tackon sdir "Polski") (infos))
- (dest ID_dest)
- (all)
- (help @copyfiles-help)
- )
-
- (working ("Kopiujë plik readme"))
- (copyfiles
- (source (tackon sdir "MusicBase.readme"))
- (dest ID_dest)
- (help @copyfiles-help)
- )
-
- (working ("Kopiujë plik menu"))
- (copyfiles
- (source (tackon sdir "Menu.guide"))
- (dest ID_dest)
- (help @copyfiles-help)
- )
-
- (working ("Kopiujë zdjëcie autora"))
- (copyfiles
- (source (tackon sdir "That'sMe!"))
- (dest ID_dest)
- (help @copyfiles-help)
- )
-
- (makedir (tackon ID_dest "Data"))
- (delete ("Data.info"))
-
- (set ID_dest (tackon ID_dest "Data"))
-
- (working ("Kopiujë dane tekstów muzycznych"))
- (copyfiles
- (source (tackon sdir "Data"))
- (dest ID_dest)
- (all)
- (help @copyfiles-help)
- )
-
- (set ID_dest (tackon ID_dest "//"))
- (working ("Copying info file"))
- (copyfiles
- (source (tackon sdir "Data/MusicBase.info"))
- (dest ID_dest)
- (help @copyfiles-help)
- )
-
- (exit
- "\n \n \n \nMiîej zabawy z MusicBase!\nTwórz bazë ze mnâ!\nPrzyôlij mi teksty muzyczne!"
- (quiet)
- )
-